home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / P / PickStk.cpt / The Pick / background_2801.txt < prev    next >
Encoding:
Text File  |  1988-07-24  |  4.9 KB  |  224 lines
  1. -- background: 2801 from stack: in
  2. -- bmap block id: 3146
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2001
  11. -- rect: left=43 top=109 right=163 bottom=105
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 2
  16. -- text size: 36
  17. -- style flags: 256
  18. -- line height: 48
  19. -- part name: roll1
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 2001
  25. -- rect: left=121 top=109 right=163 bottom=183
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 2
  30. -- text size: 36
  31. -- style flags: 256
  32. -- line height: 48
  33. -- part name: roll2
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 01
  38. -- high flags: 2001
  39. -- rect: left=200 top=110 right=164 bottom=262
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 2
  44. -- text size: 36
  45. -- style flags: 256
  46. -- line height: 48
  47. -- part name: roll3
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 01
  52. -- high flags: 2001
  53. -- rect: left=275 top=110 right=164 bottom=337
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 2
  58. -- text size: 36
  59. -- style flags: 256
  60. -- line height: 48
  61. -- part name: roll4
  62.  
  63.  
  64. -- part 5 (field)
  65. -- low flags: 01
  66. -- high flags: 2001
  67. -- rect: left=352 top=112 right=166 bottom=414
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 2
  72. -- text size: 36
  73. -- style flags: 256
  74. -- line height: 48
  75. -- part name: roll5
  76.  
  77.  
  78. -- part 6 (field)
  79. -- low flags: 01
  80. -- high flags: 2001
  81. -- rect: left=428 top=113 right=167 bottom=490
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 2
  86. -- text size: 36
  87. -- style flags: 256
  88. -- line height: 48
  89. -- part name: roll6
  90.  
  91.  
  92. -- part 7 (button)
  93. -- low flags: 00
  94. -- high flags: 8003
  95. -- rect: left=214 top=202 right=224 bottom=314
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: New Pick
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   global x
  107.   put 0 into x
  108.   repeat until x=1
  109.     put the random of (39) into field roll1
  110.     put the random of (39) into field roll2
  111.     put the random of (39) into field roll3
  112.     put the random of (39) into field roll4
  113.     put the random of (39) into field roll5
  114.     put the random of (39) into field roll6
  115.     --
  116.     put 1 into x
  117.     if field roll1 = field roll2 then put 0 into x
  118.     if field roll1 = field roll3 then put 0 into x
  119.     if field roll1 = field roll4 then put 0 into x
  120.     if field roll1 = field roll5 then put 0 into x
  121.     if field roll1 = field roll6 then put 0 into x
  122.     --
  123.     if field roll2 = field roll3 then put 0 into x
  124.     if field roll2 = field roll4 then put 0 into x
  125.     if field roll2 = field roll5 then put 0 into x
  126.     if field roll2 = field roll6 then put 0 into x
  127.     --
  128.     if field roll3 = field roll4 then put 0 into x
  129.     if field roll3 = field roll5 then put 0 into x
  130.     if field roll3 = field roll6 then put 0 into x
  131.     --
  132.     if field roll4 = field roll5 then put 0 into x
  133.     if field roll4 = field roll6 then put 0 into x
  134.     --
  135.     if field roll5 = field roll6 then put 0 into x
  136.   end repeat
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 8 (button)
  142. -- low flags: 00
  143. -- high flags: 0000
  144. -- rect: left=470 top=31 right=56 bottom=500
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 20689 / 20689
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: New Button
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   go home
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 9 (field)
  161. -- low flags: 01
  162. -- high flags: 0001
  163. -- rect: left=178 top=60 right=78 bottom=343
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 3
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: 
  172.  
  173.  
  174. -- part 10 (field)
  175. -- low flags: 81
  176. -- high flags: 2001
  177. -- rect: left=132 top=139 right=218 bottom=405
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 2
  182. -- text size: 24
  183. -- style flags: 256
  184. -- line height: 32
  185. -- part name: 
  186. ----- HyperTalk script -----
  187. on mouseup
  188.   hide field 8
  189. end mouseup
  190.  
  191.  
  192.  
  193. -- part 11 (field)
  194. -- low flags: 01
  195. -- high flags: 2001
  196. -- rect: left=194 top=10 right=42 bottom=329
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 1
  200. -- font id: 2
  201. -- text size: 20
  202. -- style flags: 0
  203. -- line height: 26
  204. -- part name: 
  205.  
  206.  
  207. -- part 12 (field)
  208. -- low flags: 81
  209. -- high flags: 2007
  210. -- rect: left=319 top=207 right=316 bottom=509
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 2
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: 
  219. ----- HyperTalk script -----
  220. on mouseup
  221.   hide field 10
  222. end mouseup
  223.  
  224.